home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS210.dsk / PREWRITE.bas < prev    next >
BASIC Source File  |  2012-02-16  |  723b  |  10 lines
  1. 1  POKE  -16304,0: POKE  -16297,0: POKE  -16302,0
  2. 5  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>       <CTRL-M>*** <CTRL-J>
  3. 10  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>        <CTRL-M>*** DEFINE<CTRL-J>
  4. 20 Q$ =  CHR$(34):D$ =  CHR$(4):CL% = 948:KY% = 962:HI% = 772:TE% = 781:UN% = 25345:X% = 768:Y% = 769: DEF  FN C(QZ) =  INT(QZ/2) - INT( LEN(A$)/2)
  5. 30  CALL TE%: PRINT D$"OPENPRE": PRINT D$"WRITEPRE": PRINT  PEEK(767): PRINT D$"CLOSEPRE"
  6. 40  PRINT D$"RUNLESSON.SYS"
  7. 999  END 
  8. 1000  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>          <CTRL-M>*** LOAD IN PACKED PIC<CTRL-J>
  9. 1010  PRINT D$"BLOAD"A$".PAC,A$63B8": CALL UN%
  10. 1020  RETURN